home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspm.arc / DSPM.PGM < prev    next >
Encoding:
Text File  |  1991-12-04  |  2.8 KB  |  44 lines
  1. /*                                                                            */
  2. /* Function- File Member Maintenance & Selection                              */
  3. /* Author  - David J. Kraxner    04/12/85 - Date Written                      */
  4. /*                                                                            */
  5. /*  04/03/85 DJK - Modified for QUSERMSG messages FFD5001 & FFD5002.          */
  6. /*  07/11/87 DJK - Compiled Only to Archive.                                  */
  7. /*                                                                            */
  8.              PGM        PARM(&FILENAME &CLRRMV)
  9. /*                                                                            */
  10.              DCL        VAR(&FILENAME) TYPE(*CHAR) LEN(20)
  11.              DCL        VAR(&CLRRMV) TYPE(*CHAR) LEN(1)
  12.              DCL        VAR(&MEMBER) TYPE(*CHAR) LEN(10)
  13.              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
  14.              DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
  15.              DCL        VAR(&MSG) TYPE(*CHAR) LEN(74)
  16.              DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)
  17.              MONMSG     MSGID(CPF0000) /* Global Monitor Messages */
  18. /*                                                                            */
  19.              CHGVAR     VAR(&FILE) VALUE(%SST(&FILENAME 1 10))
  20.              CHGVAR     VAR(&LIB) VALUE(%SST(&FILENAME 11 10))
  21. /*                                                                            */
  22. /*  Builds Member List Work File                                              */
  23. /*                                                                            */
  24.              DLTF       FILE(DSPFDMWK.QTEMP)
  25.              DSPFD      FILE(&FILE.&LIB) TYPE(*MBRLIST) OUTPUT(*NONE) +
  26.                           OUTFILE(DSPFDMWK.QTEMP) OUTMBR(DSPFDMWK)
  27.              MONMSG     MSGID(CPF3012) EXEC(GOTO CMDLBL(MSGLOOP))
  28. /*                                                                            */
  29. /*  File Member Maintenance & Selection Program                               */
  30. /*                                                                            */
  31.              CALL       PGM(FFD500) PARM(&CLRRMV &MEMBER &TEXT)
  32.              SNDPGMMSG  MSGID(FFD5001) MSGF(PKMSGF) MSGDTA(&MEMBER)
  33.              SNDPGMMSG  MSGID(FFD5002) MSGF(PKMSGF) MSGDTA(&TEXT)
  34. /*                                                                            */
  35.              GOTO       CMDLBL(ENDCLPGM)
  36. /*                                                                            */
  37.  MSGLOOP:    RCVMSG     RMV(*NO) MSG(&MSG)
  38.              IF         COND(&MSG *GT ' ') THEN(SNDPGMMSG MSG(&MSG))
  39.              ELSE       CMD(GOTO CMDLBL(ENDCLPGM))
  40.              GOTO       CMDLBL(MSGLOOP)
  41. /*                                                                            */
  42.  ENDCLPGM:   RETURN
  43.              ENDPGM
  44.